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Hidden Treasures: Part Ill 


Exploring the Finance Sample Application 


By Bob Hoskin 


he Oracle Power Objects (OPO) sample applications are a valuable resource 

to the new developer. In them, you'll find examples that help with many of 
your OPO development questions. This month’s hidden treasures are found in 
the sample application named Finance. We'll look at multi-database logins, the 
Chart object, running totals, and a variety of interesting visual effects. 


Dollars and Sense 

Finance is unique among the sample 
applications in that it does not automati- 
cally log into a predefined database. 
When the application starts, it presents 
you with the choice of logging into an 
Oracle or Blaze database. (You might 
need this functionality in a laptop appli- 
cation that uses a server at the office, and 
a local database on the road.) 


The frmMain form is shown at run time 
in Figure 1. The box labelled Database 
Session is a radio button frame. The three 
radio buttons you see inside the box are 
members of the radio button group. 


Checkbook 
Register 


Database Session— oe oom  —H—__ 
C{ Disconnected (€ Blaze oracle 7 Server| 


Figure 1: The main form for our Finance 
application. 


Amortization 
schedule 


Investment 


Guide 


Connection management is pretty sim- 
ple. When clicked, method code in a 
radio button assembles a connection 
string, assigns it to the RunConnect 
property of the session object, and exe- 
cutes its Connect method. The 
RunConnect property determines the 
database the session will use. 





Making the Connection 

Let’s look at this more closely. The radio 
button radOracle7 controls the Oracle 7 
Server login. When selected, its Click 


method, shown in Figure 2, executes. 


The DIM statements at the beginning sim- 
ply define some variables we'll need later. 
The method Application.SetCursor(1) 
turns the mouse pointer into the “busy” 
cursor. The line: 


IF SAMPLE.IsConnected() THEN 
SAMPLE .Disconnect( ) 


disconnects the session from a database if 
it is already connected. 


The next few lines set some values in the 
sign-on form, frmDatabase (see Figure 3), 
and open it as a system-modal form with 
the OpenModal method. This form collects 
an Oracle user name, password, and con- 
nection string from the user. 


Calling the OpenModal method with the 
parameter of 1 makes the form a system- 
modal form. System-modal forms wait for 
input and prevent you from accessing 
anything else until they are dismissed. 
The method radOracle7.Click waits until 
control returns from the modal form 
frmDatabase. When frmDatabase is dis- 
missed, the code for the radOracle7.Click 
method resumes execution. The database 
type, user name, password, and connec- 
tion string from the form fields are 


assigned to BASIC string variables. It 
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Sub Click 

DIM vwDatabase AS String 
DIM vUsername AS String 
DIM wPassword 45 String 
DIM wConnect AS String 
DIM wRunConnect AS String 


kpplication.SetCursor/{ 1 } 
' Disconnect any existing session. 
IF SAMPLE.IsConnected/{}) THEN SAMPLE.Disconnect [} 


' Set values for the database logon form and open the modal dialog. 
frmDatabase.popDatabase. Translation = “Oracle 7? Server=ORACLE:" 
frmPatabase.popDatabase. Value = “ORACLE:" 

frmbatabase.OpenModal/{ 1 } ' Open modal Database dialog 


' Retrieve the data supplied in the database logon dialog. 
bpplication.SetCursor/{ 1 } 
frmPatabase. popDatabase. Value 
frmPatabase. fldUsername. Value 
frmPatabase. fldPassword. Value 
frmPatabase. fldConnect. Value 
frmPatabase.CloseWindow! } ' Close Database dialog externally 


' Force a visual screen refresh. 
frnMain. ForceUpdate[) 


' Build a database connect string from the data supplied. 
RunConnect = vDatabase « vUsername « "/" & vPassword « "G" 
SAMPLE.RunConnect = vRunConnect 


é& vConnect 


' Attempt to manually reconnect the session to the new database server. 
SAMPLE. Connect [} 


' If the connection fails, then set the DisConnected button to true. 
IF NOT SAMPLE. IsConnected THEN frabatabase. Value = O 


[=| Form-frmDatabase [= [+] 
__ (PP ee eee 


Database: | popDatabase 


Username: dUserame 
Password: ndPassword 
Connect String: ndConnect 





Figure 2 (Top): The radOracle7.Click method. 
Figure 3 (Bottom): The sign-on form frmDatabase at design time. 


then executes the method frmDatabase.CloseWindow 
on the window that just closed and forces a screen 
refresh with the ForceUpdate method for the form. 


But, Isn’t It Closed? 

But wait. Why would we 
close a closed window? 
For that matter, didn’t we 
just read field values from 
that closed window? Truth 
is, the window only looks 
closed. The frmDatabase 
form was opened as a 
modal form, and modal 


forms behave in a special 
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Figure 4: The Property sheet for 


btnOK. 
way. If you look closely at " 


the Property sheet shown in Figure 4, you'll see that btnOK’s 
IsDismissBtn property is set to True. When this property is 
True, a button on a modal form will call the form’s 


DismissModal method. This method hides the window, but 


keeps it in memory, available for use if it is re-opened. 





PTI MEFALLELO LES Le ilatliils 


Loan Parameters 


Monthly Payment:| $650.05 
Update Amortization 


Loan Amount:) $20 000 APR:|10.50% 


First Payment:|93/05/96 # of Years; 3 a 


Amortization Schedule 


flu, Date Interact Princia) Balance 


Values: Principal vs. Interest 
03/05/96 800 


F 
[ 2fosose | 17084] 479211 19.046 |_| 600 
[ sfosmse| 16665[ 49340[ 18.562 400 
[ afoeosae |] 16242[ as763[ 18.075 200 
[ sfovosse| 15815[ 49190[ 17.583 0 
[ sfosmse] 15385[ 49620[ 17.087 

[ 7fogosse| 14951 [ soosa[ 16.586 

[ 3 | 10/05/96 145.13 | 504.92 | 16.081 ee Teale Charts 


45) © PRINCIPAL 
246810446 © INTEREST 


[ afatosee | 140.71[ s0934[ 15.572 |e © Totals © Values | 
| Calculating Loan Amortization Schedules 5/2 | El 


Figure 5: The Amortization Schedule form, frmAmortize. 





Finally, the radOracle7.Click method concatenates the 
string variables vDatabase, vUsername, vPassword, 
and vConnect and assigns the result to the BASIC vari- 
able vRunConnect. The ampersand character ( & ) is 
BASIC’s concatenation symbol. The other literals, such 
as the forward dash ( / ) and the “at” character ( @ ) are 
necessary punctuation. The result might resemble: 


ORACLE: demo/demopass@t:myserver:orac 


if the vDatabase is “ORACLE:”, the vUsername is 
“demo”, the vPassword is “demopass’ and the vConnect 
variable contains “t:myserver:orac’. The contents of 
vRunConnect are then assigned to the session property 
SAMPLE.RunConnect, and the SAMPLE method is 


called to connect the session. 


If all goes well, the session is connected. If not, the test: 


IF NOT SAMPLE.IsSConnected() THEN 
simply turns the Disconnected radio button on. 


The techniques used in frmMain to manage sessions can 
be used in your applications as well. A message box in the 
case of failure would be a good addition for production 
applications. Most applications use a sign-on procedure, 
and if youre using Oracle to manage security for you, this 
example will get you started. 


Killing Debt 

The Amortization Schedule form, frmAmortize, is shown 
at run time in Figure 5. This form has two chart objects, a 
pie and a bar. The radio buttons in the Amortization Charts 
frame let the user toggle between the pie chart and the bar 
chart. You can click on the radio button labelled Values to 
see the bar chart. 


To use the form, change the loan amount, term, or 
APR, and press the Update Amortization button. A 
progress bar is displayed while the amortization sched- 
ule and charts are recalculated. We'll look at the bar 
chart object. 


O66 IUCy JURULOJU] B]9e19 


You’ve Got the Power 


[ep Form -trmAmortize si | 
Te ee eee ee eR ee en eee. ee 
Amortization Schedule 
Loan Parameters 
Loan Amount:|fldLoanAmt APR:|fidAPR 


First Payment:|fidFirstP: x of Years:|1Years a 


Amortization Schedule 
Interest 


Monthly Payment:|fldMPayment 
Update Amortization 


Printed) Balance Values: Principal vs. Interest 


B Principal 
B Interest 
O Options 


Amortization Charts 
| © Totals © ¥alues | 
2]? 1e | 


Figure 6: frmAmortize in the OPO forms editor. 
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Figure 7: The Property sheet for 
chtAmortizeBar. 


is normally on top 
of the bar chart 
object. We've tem- 
porarily removed 
the pie chart so that 
the bar chart 
chtAmortizeBar ts 
clearly visible. 


When the user 
clicks the pushbut- 
ton labelled Update 
Amortization, the 
btnAmortize.Click 
method goes 
through many steps 
to perform the 
recalculation. The 
result of those steps 
is to repopulate the repeater repAmortSchedule with 
the new loan amortization schedule. The chart object 
chtAmortizeBar uses values from that recordset as its 
X and Y axis data points. 


The Property sheet for chtAmortizeBar is shown in 
Figure 7. You can see that the chart’s RecordSource prop- 
erty is set to =repAmortSchedule. 


This means the chart is a bound object, sharing the 
same recordset as the repeater. The property ChartStyle 
is set to Vertical Bar, and the ChartStacked property is 
set to True. Between them, these tell the chart object to 
present a bar chart, and to show multiple Y values (for 
a given X) stacked on each other. In this case, there will 
be a principal value and an interest value in each peri- 
od. They will always add up to a flat monthly payment, 
but the proportion of interest to principal will change. 
The source of data points for the X axis of the chart is 
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Figure 8: The Checkbook Register of the Finance application. 
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Figure 9: The Property sheet for the Balance 
field. 


points for the 
Y axis are 
determined by the property ChartYCols, which is set to 
Principal,Interest. These are the principal and interest 
columns from repAmortSchedule. The ChartAutoFormat 
property is set to True, so the chart object will automati- 
cally adjust its scales to fit the range of the data points. 


Watching the Funds 

The Checkbook Register is another form in the Finance 
application that logs deposits and withdrawals from a 
checking account. It’s shown at run time in Figure 8. 


While the form is running, click on a transaction in the 
repeater. You'll see the document at the bottom of the 
form synchronize. The displayed document switches 
between a check, a deposit slip, and a cash withdrawal. 
There are a number of interesting visual effects on this 
form, as well as running totals and clever use of event 
inheritance. 


We'll start with the easy stuff and look at the fldBalance 
field in Figure 8 as a running total. The fldBalance field 
is a calculated field, and its Property sheet is shown in 
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Figure 10: The modified repeater. 


Figure 9. The field’s DataSource property does all the 


work. It’s set to: 


= fldStartBal+SUM(repRegister.f1dAMOUNT ) 


The fldStartBal field is under the Starting Balance 
prompt. It’s simply a numeric field with a DefaultValue 
property that’s set to 1000. It’s enterable at run time. This 
value is added to the sum of all the values in field 
f1dAmount in the check register repeater, repRegister. 
The property repRegister.RowFetchMode is set to Fetch 
All Immediately, so the amounts of all items in the reg- 
ister are included in the total. 


The repeater that makes up the check register doesn't look 
much like a standard repeater because its coloring is 
unusual. Notice the gray and white banding, and the sin- 
gle-pixel separators between fields. This repeater did not 
come straight off the tool palette. 


Figure 10 shows it “deconstructed.” We needed more room, 
so we cut the check document from the form for this exam- 
ple. We slid the repeater object down the form, exposing 
the objects under it. Then we moved some of the objects 
apart and changed their colors so that theyd be easier to see. 


The repeater object, repRegister, was on top of a col- 
lection of gray and white rectangle objects. We've 
changed the ColorFill property on rctEntryBG1, 
rctEntryBG3, and rctEntryBG5d from Light Gray to 
Light Blue so you can see them more easily. 


Taken together, these objects make up the background col- 
oring for the repeater. The banding showed through the 
repeater because the property repRegister. Transparent was 
set to [rue and the repeater is almost exclusively made up 
of transparent objects. 


How did the developer make the fields transparent? He or 
she didn't. The developer used static text instead. The only 
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Seti UL 
Sub PostChanged PostChange 
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repeater. 
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“real” fields visible to the user are the Check number in the 
f 1dCHECKNO field and the chkConfirmed check box. All 
the other data fields are collapsed to one character’s width 
and hidden behind f 1dCHECKNO. 


To illustrate this, we've stretched f1dAMOUNT so you can 
see it easily. Its PostChange method is shown in Figure 11. 
When the value of this field changes, the new value will be 
formatted and assigned to the property txtAmount.Label. 


Static text fields have a color property for their text, but 
their background is transparent and has no border color. 
The borders that the user sees are carefully-placed black 
line objects. We've colored a few of them bright red so you 
can see them more easily. 


You may have noticed a current row pointer object, 
crpTrans, at the left end of the repeater. This object is 
normally hidden, so why have it? 


It’s true that current row pointers can give the user a visual 
cue to the currently selected row, but they can also save the 
developer a lot of work. The default behavior of a current 
row pointers Click method is to select the current row. 


If youve worked with repeaters and current row pointers, 
you know that to select a row, you can't just click any- 
where. You have to click the current row pointer. But if 
youve used frmRegister, you know that you can click 
anywhere in a repeater to select a row. 


How was this done? Figure 12 shows the 
repRegister.repeat_panel.ChildClick method. When a 
ChildClick method is called, the method code calls 

crp Irans.Click, which selects the current row. The 
ChildClick method is invoked for a container when 
one of the objects inside it is clicked. There are other 
Child... methods as well. The static text, lines, and visi- 
ble fields are all contained by repeat_panel, which in 
turn is contained by repRegister. 


One of the features of the frmRegister form is the 
check/withdrawal/deposit slip document that changes as 


[=|______tepeat_panel Properties | 
SSS re 


¥ ChildClick | 


Sub ChildClickéchild as Object 
rpTrans.Click{} 


Figure 12: The 

repRegister.repeat_ 

panel.ChildClick 

L method. This code 

ia allows you to click 
anywhere in the 

j repeater to select a 
row. 
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Sub PostChanged 
' On change af transaction type, ensure proper 
' amount Sign which is done in f1d4MOUNTS. PostChange 
IF NOT ISNULL{ Value | THEN 
SELECT CASE Value 
CASE "Check"™: 


IF repRegister. GetRecordset().GetColValf "AMOUNT" | > O THEN 
embCheck.Colorfill = 15 
CxtSignature. Label = “Sample User™ 


CASE "Deposit™: 
IF repRegister. GetRecordset().GerColVal{ "AMOUNT" | =< O THEN | 
enbCheck.Colaorfill = 3 
txtSignature. Label = “- For DEPOSIT Only -"™ 


CASE "Withdraw": 
IF repRegister.GetRecardset(i.GetColValf "AMOUNT" | > O THEN 
embCheck.Colorfill = 11 
txtSiqnature. Label = "- For WITHDRAWAL Only -" 


END SELECT 





Figure 13: The popTRANSTYPE.PostChange method. 


register entries are selected. The document object is an 
embedded form, embCheck. The property 
embCheck.RecordSource is set to: 


=repRegister 


so embCheck is sharing repRegister’s recordset and is the 
entry form for that recordset. No additional code is required 
to synchronize the two objects. The format change is man- 
aged by the popTRANSTYPE object, the Transaction type. 


The method popTRANSTYPE.PostChange is shown in 
Figure 13. The CASE statement tests the Value of the 
POpTRANSTYPE popup list, setting the property 
embCheck.ColorFill to Light Blue (color# 15) for checks. 
The property embCheck.ColorFill is set to Light Green 
(color# 9) for deposits, and to Dark Gray (color# 11) for 
withdrawals. The property txtSignature.Label is also set 
with literals appropriate for each type of document. 


As you scroll through the repeater, the pop T[RANSTYPE.- 
PostChange method watches for different record types and 
adjusts the embCheck object’s appearance to match. 


Conclusion 

We found a number of useful examples in the Oracle Power 
Objects sample applications this month. Establishment of 
database connections, running totals, the use of the 
ChildClick method, and a technique for changing an 
object’s appearance based on a PostChange method are 
things you'll use all the time. The chart object can really 
dress up your application, and as we saw, it’s not hard to use. 


See you next month with more hidden treasures from the 


sample applications. Gal 
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